home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmiSoft / Hard / drivr / PoseidonMain.lha / Poseidon / Poseidon-Install < prev    next >
Text File  |  2003-12-29  |  40KB  |  1,096 lines
  1. ;--------------------------------------------------------------------------
  2. ; $VER: Poseidon Install V1.8 (13-Dec-03).
  3. ;
  4. ; Copyright ©2002-2003 Chris Hodges. All rights reserved.
  5. ;--------------------------------------------------------------------------
  6.  
  7. (delopts "force" "askuser" "nofail")
  8.  
  9. ;--------------------------------------------------------------------------
  10. ; Flexible installer script! So get our installation environment.
  11. ;--------------------------------------------------------------------------
  12.  
  13. (set #home @execute-dir)
  14. (set #instdatadir "InstallData")
  15.  
  16. ;--------------------------------------------------------------------------
  17. ; Error cleanup code.
  18. ;--------------------------------------------------------------------------
  19.  
  20. (onerror
  21.     (
  22.         (if (> @ioerr 0)
  23.             (message (cat #ioerror "\n\n ERROR CODE: " @ioerr))
  24.         )
  25.     )
  26. )
  27.  
  28. ;--------------------------------------------------------------------------
  29. ; English Installer Strings
  30. ;--------------------------------------------------------------------------
  31.  
  32. (if (= @language "english")
  33.     (
  34.         (set #lang 1)
  35.         (set #suffix "_E")
  36.         (set @default-dest "all over the place")
  37.         (set #licence "Licence.txt")
  38.         (set #ioerror "An error occured during the installation, please report it to me.\n\nThanks.")
  39.  
  40.         (set #updateinstaller
  41.             (cat "\n"
  42.                 "Just to let you know ESCOM AG has released a new version of the installer program."
  43.                 "\n\nVersion 43.3 can be found on Aminet in:\n\n/util/misc/Installer-43_3.lha\n\n"
  44.                 "You might want to upgrade soon, if you can, especially if you encounter problems "
  45.                 "during this installation."
  46.             )
  47.         )
  48.  
  49.         (set #lhaerr
  50.             (cat
  51.                 "Sorry, couldn't extract installation data!\n"
  52.                 "Please install Lha / LhEX."
  53.             )
  54.         )
  55.  
  56.         (set #intro
  57.             (cat "\n"
  58.                 ("Welcome to the installation program for the\nPoseidon USB Stack V%d.%d\n"
  59.                 (getversion (tackon #instdatadir "Libs/poseidon.library")))
  60.                 "by Chris Hodges <hodges@in.tum.de>"
  61.                 "\n\nPlease read the Licence before proceeding.\n"
  62.                 "Continuing on the Installation means you have read and accepted the Licence conditions!\n\n"
  63.             )
  64.         )
  65.  
  66.         (set #extro
  67.             (cat "\n"
  68.                 "All Poseidon files installed. Enjoy!\n\n"
  69.                 "The first thing is to read the manual (in the HELP: directory). After "
  70.                 "that, load up Trident that can be found in your Prefs drawer."
  71.             )
  72.         )
  73.  
  74.         (set #copybonus
  75.             (cat "\n"
  76.                 "There is some bonus material in the \"Extra\" drawer, such as fat95 by "
  77.                 "Torsten Jager, MasonIcons by Martin Merz, and the original "
  78.                 "LoadModule archive by Torbjörn Andersson. All archives are included with "
  79.                 "permission. "
  80.                 "NOTE: The bonus material is included 'as-is' and neither I nor the authors "
  81.                 "of these products give warrenties of any kind.\n\n"
  82.                 "Do you want to unpack these files now?"
  83.             )
  84.         )
  85.  
  86.         (set #copybonus_help "This is optional. You can unpack these archives later aswell.")
  87.  
  88.         (set #copybonusdir "Select target directory (preferably RAM:):")
  89.  
  90.         (set #copybonusdir_help "This is the location, where the extra files will be unpacked to.")
  91.  
  92.         (set #askmorphos "Do you want to install the PPC native binaries for MorphOS aswell?")
  93.  
  94.         (set #askmorphos_help "If your system is not running MorphOS, you can skip this part.")
  95.  
  96.         (set #copymainlib "Copying main Poseidon library file...\n")
  97.  
  98.         (set #copymainlib_help "\nThis is the main Poseidon stack library. Without it, nothing will work.")
  99.  
  100.         (set #copyhwdrivers "Select the USB hardware drivers you want to install:\n")
  101.  
  102.         (set #copyhwdrivers_help
  103.             (cat "\n"
  104.                 "These are the hardware-dependent USB controller drivers available. Select your "
  105.                 "USB hardware controller. Poseidon will not work without the correct hardware "
  106.                 "controller driver."
  107.             )
  108.         )
  109.  
  110.         (set #copyclasses "Select the USB class drivers you want to install:\n")
  111.  
  112.         (set #copyclasses_help
  113.             (cat "\n"
  114.                 "Class drivers are the software that automatically enables the features of "
  115.                 "the devices you plug onto the USB. If you don't know, which device will need "
  116.                 "which class driver, just copy them all, there's no harm done. "
  117.             )
  118.         )
  119.  
  120.         (set #copydocs "Copying manual...\n")
  121.  
  122.         (set #copydocs_help
  123.             (cat "\n"
  124.                 "As there is no actual installation directory, the docs will be "
  125.                 "installed in your HELP: directory."
  126.             )
  127.         )
  128.  
  129.         (set #copygui "Copying Trident (GUI)...\n")
  130.  
  131.         (set #copygui_help
  132.             (cat "\n"
  133.                 "Trident is a graphical user interface to configure your USB setup. "
  134.                 "A good place to store this program is your Prefs folder. Trident "
  135.                 "requires MUI."
  136.             )
  137.         )
  138.  
  139.         (set #copytools "Copying Tools...\n")
  140.  
  141.         (set #copytools_help
  142.             (cat "\n"
  143.                 "There are several shell tools that will be installed in your C: "
  144.                 "directory. Except for PsdLoadModule, none of these are manadatory. "
  145.                 "Have a look in the manual about their usage.\n\n"
  146.                 "PsdLoadModule is written by Torbjörn Andersson and included with "
  147.                 "friendly permission."
  148.             )
  149.         )
  150.  
  151.         (set #copyromtag "Copying RomTag Installer...\n")
  152.  
  153.         (set #copyromtag_help
  154.             (cat "\n"
  155.                 "Poseidon can be installed reset-proof, so that is already available "
  156.                 "in the boot menu. This is a small shell script that will both install "
  157.                 "or uninstall Poseidon residently."
  158.             )
  159.         )
  160.  
  161.         (set #copystackloader "Copying initial config...\n")
  162.  
  163.         (set #copystackloader_help
  164.             (cat "\n"
  165.                 "The stack config is saved in an executable file that can be run to "
  166.                 "load up the stack itself. This config file is normally stored in "
  167.                 "the ENVARC: directory."
  168.             )
  169.         )
  170.  
  171.         (set #copydosdriver "Copying example DOSDriver...\n")
  172.  
  173.         (set #copydosdriver_help
  174.             (cat "\n"
  175.                 "This is an example DosDriver mountlist to use with the mass "
  176.                 "storage class for media containing FAT filesystems."
  177.             )
  178.         )
  179.  
  180.         (set #copyvhi "Copying Webcam driver for VHI Studio...\n")
  181.  
  182.         (set #copyvhi_help
  183.             (cat "\n"
  184.                 "A driver for PenCam cameras for VHI Studio is included in this "
  185.                 "package and will be installed in LIBS:VHI/"
  186.             )
  187.         )
  188.  
  189.         (set #askstartonboot "Do you want Poseidon to be started automatically on bootup?\n")
  190.  
  191.         (set #askstartonboot_help
  192.             (cat "\n"
  193.                 "This will just add a line to your user-startup, that will run the "
  194.                 "PsdStackloader program that must be in ENVARC: for this purpose. "
  195.                 "This is not mandatory. You can also decide to startup the stack "
  196.                 "by manually using the Trident GUI."
  197.             )
  198.         )
  199.  
  200.         (set #createconfig
  201.             (cat "\n"
  202.                  "Do you want to initially start the USB stack and create a default "
  203.                  "configuration? Otherwise an empty configuration file is copied."
  204.             )
  205.         )
  206.  
  207.         (set #createconfig_help
  208.             (cat "\n"
  209.                  "Poseidon requires only two things to initially start off. The "
  210.                  "first thing is the to be used hardware driver, the second the "
  211.                  "class drivers to add to the system. You now have the option "
  212.                  "to boot up the stack with the drivers in DEVS:USBHardware "
  213.                  "and the classes in SYS:Classes/USB. However, if something "
  214.                  "goes wrong, the installation probably will be aborted.\n\n"
  215.                  "If you don't want to create this easy-startup configuration "
  216.                  "file, an empty default config is copied."
  217.             )
  218.         )
  219.  
  220.         (set #addstartup "Adding the PsdStackloader to your User-Startup-Sequence...\n")
  221.  
  222.         (set #copyinput "Copying new input.device...\n")
  223.  
  224.         (set #addinputload
  225.              (cat "\n"
  226.                 "Adding loading of new input.device to startup-sequence...\n\n"
  227.                 "Please reboot after installation for the new input.device to "
  228.                 "become active."
  229.              )
  230.         )
  231.  
  232.         (set #copyinput_help
  233.             (cat "\n"
  234.                 "The old input.device is not capable of handling more than one "
  235.                 "keyboard and mouse. Several hacking and patching would have been "
  236.                 "required to ensure that USB mice and keyboards work 100% compatible.\n\n"
  237.                 "I've decided to go another way. Ralph Schmidt has been so kind and "
  238.                 "provided me with the source code of the input.device for MorphOS. "
  239.                 "I made a 68k version and added the required missing features. "
  240.                 "Without this new input.device you won't be able to use keyrepeat on "
  241.                 "keyboards and some (especially MUI!) programs will have problems "
  242.                 "with USB mice and tablets. The input device has to be installed "
  243.                 "as a RomTag before the first reboot (normally done by SetPatch).\n\n"
  244.                 "A PsdLoadModule instruction will added to your startup-sequence "
  245.                 "as first line."
  246.             )
  247.         )
  248.     )
  249. )
  250.  
  251. ;--------------------------------------------------------------------------
  252. ; German Installer Strings
  253. ;--------------------------------------------------------------------------
  254.  
  255. (if (= @language "deutsch")
  256.     (
  257.         (set #lang 2)
  258.         (set #suffix "_D")
  259.         (set @default-dest "auf der Festplatte verstreut")
  260.         (set #licence "Lizenz.txt")
  261.         (set #ioerror "Leider ist ein Fehler während der Installation aufgetreten. Bitte diesen an mich melden!\n\nDanke!")
  262.  
  263.         (set #updateinstaller
  264.             (cat "\n"
  265.                 "Ich möchte Sie nur kurz folgendes wissen lassen: Die Escom AG hat eine neue Version "
  266.                 "des Installer-Programms veröffentlicht.\n\nVersion 43.3 kann im Aminet unter "
  267.                 "/util/misc/Installer-43_3.lha gefunden werden.\n\n"
  268.                 "Sofern möglich, sollten Sie sich die neue Version besorgen, besonders wenn Sie auf "
  269.                 "Probleme während der Installation stoßen."
  270.             )
  271.         )
  272.  
  273.         (set #lhaerr
  274.             (cat
  275.                 "Leider konnten die Installationsdaten nicht entpackt werden!\n"
  276.                 "Bitte installieren Sie das Programm Lha oder LhEX."
  277.             )
  278.         )
  279.  
  280.         (set #intro
  281.             (cat "\n"
  282.                 ("Willkommen zur Installation des\nPoseidon USB Stack V%d.%d\n"
  283.                 (getversion (tackon #instdatadir "Libs/poseidon.library")))
  284.                 "von Chris Hodges <hodges@in.tum.de>"
  285.                 "\n\nBitte lesen Sie die Lizenzvereinbarungen, bevor Sie weitermachen.\n"
  286.                 "Durch die Fortsetzung der Installation stimmen Sie den Vereinbarungen zu!\n\n"
  287.             )
  288.         )
  289.  
  290.         (set #extro
  291.             (cat "\n"
  292.                 "Alle Poseidon Dateien wurden installiert. Viel Spaß!\n\n"
  293.                 "Das erste, was Sie machen sollten, ist die Anleitung zu lesen (im HELP: Verzeichnis). "
  294.                 "Danach können Sie Trident laden, das im Ihrem Voreinsteller-Verzeichnis liegt."
  295.             )
  296.         )
  297.  
  298.         (set #copybonus
  299.             (cat "\n"
  300.                 "Es gibt einiges Extramaterial im \"Extra\"-Verzeichnis, wie z.B. "
  301.                 "fat95 von Torsten Jager, MasonIcons von Martin Merz und das "
  302.                 "original LoadModule Archiv von Torbjörn Andersson. Die Beigabe dieser Archive "
  303.                 "erfolgt mit Genehmigung. "
  304.                 "ACHTUNG: Das Material wird 'so-wie-es-ist' mitgeliefert und weder die Autoren "
  305.                 "noch ich geben irgendwelche Garantien auf dieses.\n\n"
  306.                 "Wollen Sie diese Extra-Dateien jetzt entpacken?"
  307.             )
  308.         )
  309.  
  310.         (set #copybonus_help "Das ist alles optional. Sie können es auch später entpacken.")
  311.  
  312.         (set #copybonusdir "Wählen Sie das Zielverzeichnis für die Bonusarchive (bevorzugt RAM:):")
  313.  
  314.         (set #copybonusdir_help "Das ist der Ort, in den die Archive entpackt werden.")
  315.  
  316.         (set #askmorphos "Wollen Sie die PPC native Binaries für MorphOS mitinstallieren?")
  317.  
  318.         (set #askmorphos_help "Falls Ihr System nicht unter MorphOS läuft, können Sie getrost darauf verzichten.")
  319.  
  320.         (set #copymainlib "Kopiere die Poseidon Hauptbibliothek...\n")
  321.  
  322.         (set #copymainlib_help "\bDas ist die Hauptbibliothek des Poseidon Stacks. Ohne diese läuft gar nichts!")
  323.  
  324.         (set #copyhwdrivers "Wählen Sie aus, welche USB Hardwaretreiber Sie installieren wollen:\n")
  325.  
  326.         (set #copyhwdrivers_help
  327.             (cat "\n"
  328.                 "Dies sind die hardwareabhängingen Treiber für die verfügbaren USB Controller chips. "
  329.                 "Wählen Sie Ihren Hardwarekontroller. Poseidon funktioniert nicht ohne den richtigen "
  330.                 "Hardwaretreiber."
  331.             )
  332.         )
  333.  
  334.         (set #copyclasses "Wählen Sie die USB Klassentreiber aus, die Sie installieren wollen:\n")
  335.  
  336.         (set #copyclasses_help
  337.             (cat "\n"
  338.                 "Klassentreiber sind der Teil der Software, die automatisch die Funktionen eines "
  339.                 "USB Gerätes verfügbar machen. Wenn Sie nicht wissen, welche Geräte welche Klassentreiber "
  340.                 "benötigen, kopieren Sie einfach alle; es kann nichts schiefgehen."
  341.             )
  342.         )
  343.  
  344.         (set #copydocs "Kopiere Handbuch...\n")
  345.  
  346.         (set #copydocs_help
  347.             (cat "\n"
  348.                 "Nachdem es kein eigentliches Installationsverzeichnis gibt, wird die Anleitung im "
  349.                 "HELP: Verzeichnis installiert."
  350.             )
  351.         )
  352.  
  353.         (set #copygui "Kopiere Trident (GUI)...\n")
  354.  
  355.         (set #copygui_help
  356.             (cat "\n"
  357.                 "Trident ist die graphische Benutzeroberfläche, die es Ihnen erlaubt, Ihr USB System "
  358.                 "zu konfigurieren. Ein guter Platz für dieses Programm ist das Voreinsteller-Verzeichnis "
  359.                 "(SYS:Prefs). Trident benötigt MUI."
  360.             )
  361.         )
  362.  
  363.         (set #copytools "Kopiere weitere Hilfsprogramme...\n")
  364.  
  365.         (set #copytools_help
  366.             (cat "\n"
  367.                 "Es gibt einige Shellprogramme, die in Ihrem C: Verzeichnis installiert werden. "
  368.                 "Mit Ausnahme von PsdLoadModule sind keine dieser Dateien obligatorisch. "
  369.                 "Werfen Sie einen Blick in die Anleitung über ihre Benutzung.\n\n"
  370.                 "PsdLoadModule ist ein Programm von Torbjörn Andersson, das mit freundlicher Genehmigung "
  371.                 "beilegt wurde."
  372.             )
  373.         )
  374.  
  375.         (set #copyromtag "Kopiere RomTag Installationsprogramm...\n")
  376.  
  377.         (set #copyromtag_help
  378.             (cat "\n"
  379.                 "Poseidon kann resetfest eingebunden werden, so dass USB Geräte bereits im Bootmenü "
  380.                 "verfügbar sind. Dieses kleine Shell-Script erlaubt es, Poseidon sowohl resetfest zu "
  381.                 "machen als auch wieder zu entfernen."
  382.             )
  383.         )
  384.  
  385.         (set #copystackloader "Kopiere Ausgangskonfiguration...\n")
  386.  
  387.         (set #copystackloader_help
  388.             (cat "\n"
  389.                 "Die Konfiguration des Stacks wird in einem ausführbaren Programm gespeichert, "
  390.                 "welches benutzt werden kann, um den Stack selbst zu starten. Diese Konfigurationsdatei "
  391.                 "wird normalerweise im ENVARC:-Verzeichnis gespeichert."
  392.             )
  393.         )
  394.  
  395.         (set #copydosdriver "Kopiere Beispiel-DOSDriver...\n")
  396.  
  397.         (set #copydosdriver_help
  398.             (cat "\n"
  399.                 "Es handelt sich hierbei um eine beispielhafte DOSDriver Mountliste, die man zusammen mit "
  400.                 "der Mass Storage Klasse verwenden kann, um FAT formatierte Medien anzumelden."
  401.             )
  402.         )
  403.  
  404.         (set #copyvhi "Kopiere Treiber für Webcams für VHI Studio...\n")
  405.  
  406.         (set #copyvhi_help
  407.             (cat "\n"
  408.                 "Es liegt ein Treiber für Kameras der PenCam Serie bei. "
  409.                 "Dieser wird in LIBS:VHI/ installiert werden."
  410.             )
  411.         )
  412.  
  413.         (set #askstartonboot "Wollen Sie, dass Poseidon automatisch beim Bootvorgang geladen wird?")
  414.  
  415.         (set #askstartonboot_help
  416.             (cat "\n"
  417.                 "Dadurch wird nur eine Zeile zu Ihrer User-Startup-Datei hinzugefügt, die das "
  418.                 "PsdStackloader Programm aufruft, das sich zu diesem Zweck in ENVARC: befinden muss. "
  419.                 "Das ist nicht zwingend. Sie können auch den Stack per Hand starten, indem Sie die "
  420.                 "graphische Benutzeroberfläche Trident starten."
  421.             )
  422.         )
  423.  
  424.         (set #createconfig
  425.             (cat "\n"
  426.                  "Wollen Sie den USB Stack jetzt starten und eine automatische Konfiguration erzeugen? "
  427.                  "Andernfalls wird nur eine leere Konfigurationsdatei kopiert."
  428.             )
  429.         )
  430.  
  431.         (set #createconfig_help
  432.             (cat "\n"
  433.                  "Poseidon benötigt nur zwei Dinge, um loslaufen zu können. Beim ersten handelt es sich "
  434.                  "um den verwendeten Hardwaretreiber, das zweite betrifft die Klassentreiber, die dem "
  435.                  "System hinzugefügt werden sollen. Sie haben nun die Option, den Stack mit den "
  436.                  "Hardwaretreibern in DEVS:USBHardware und den Klassen in SYS:Classes/USB zu "
  437.                  "starten. Falls jedoch irgendetwas schiefläuft, wird die Installation wohl "
  438.                  "abgebrochen werden.\n\nWenn Sie nicht wollen, dass diese Einfach-Loslegen "
  439.                  "Startkonfiguration erzeugt wird, so wird nur eine leere Konfiguration "
  440.                  "kopiert."
  441.             )
  442.         )
  443.  
  444.         (set #addstartup "Füge den PsdStackloader zu Ihrer User-Startup-Sequence hinzu...\n")
  445.  
  446.         (set #copyinput "Kopiere das neue input.device...\n")
  447.  
  448.         (set #addinputload
  449.              (cat "\n"
  450.                 "Ergänze das Laden des neuen Input-Device zur Startup-Sequence...\n\n"
  451.                 "Bitte starten Sie das System nach der Installation neu, um das neue "
  452.                 "input.device zu aktivieren.\n"
  453.              )
  454.         )
  455.  
  456.         (set #copyinput_help
  457.             (cat "\n"
  458.                 "Das alte input.device ist unfähig, mehr als eine Tastatur und Maus zu verwalten. "
  459.                 "Mehrere Hacks und Patches wären notwendig gewesen, damit USB Mäuse und Tastaturen "
  460.                 "100% kompatible gewesen wären. Stattdessen habe ich mich für einen anderen Weg "
  461.                 "entschieden. Ralph Schmidt war so freundlich und hat mir den Sourcecode des "
  462.                 "input.device von MorphOS zur Verfügung gestellt. Ich erstellte eine 68K Version "
  463.                 "und ergänzte die fehlenden Features. Ohne dieses neue input.device werden Sie "
  464.                 "keine Tastenwiederholung auf Tastaturen haben und einige Programme (speziell MUI) "
  465.                 "werden mit USB Mäusen und Tabletts ein paar Probleme machen. "
  466.                 "Das input.device muss als RomTag reset-fest eingebunden werden und zwar "
  467.                 "am besten vor SetPatch, damit nur ein Reboot nötig ist.\n\n"
  468.                 "Eine PsdLoadModule Anweisung wird als erste Zeile zu Ihrer Startup-Sequence "
  469.                 "hinzugefügt werden."
  470.             )
  471.         )
  472.     )
  473. )
  474.  
  475. ;----------------------------------------------------------------------
  476. ;               Spanish Installer strings 1.0 (05.09.03)
  477. ;               by Dámaso Domínguez <amidde@arrakis.es>
  478. ;----------------------------------------------------------------------
  479.  
  480. (if (= @language "español")
  481.     (
  482.         (set #lang 3)
  483.         (set #suffix "_E")
  484.         (set @default-dest "elegido")
  485.         (set #licence "Licencia.txt")
  486.         (set #ioerror "Se ha producido un error durante la instalación, así que, por favor, infórmeme sobre él.\n\nGracias por anticipado.")
  487.  
  488.         (set #updateinstaller
  489.             (cat "\n"
  490.                 "Debo informarle que ESCOM AG ha lanzado una nueva revisión del programa instalador."
  491.                 "\n\nLa versión 43.3 puede encontrarla en Aminet en:\n\n/util/misc/Installer-43_3.lha\n\n"
  492.                 "Debería actualizarla lo antes posible, especialmente si durante la instalación de este paquete tiene problemas."
  493.             )
  494.         )
  495.  
  496.         (set #lhaerr
  497.             (cat
  498.                 "Lo siento, pero ¡no puedo deshacer los archivos/paquetes!\n"
  499.                 "Por favor, instale Lha / LhEX en su sistema."
  500.             )
  501.         )
  502.  
  503.         (set #intro
  504.             (cat "\n"
  505.                 ("Bienvenido al programa de instalación de\nla pila USB Poseidon v%d.%d\n"
  506.                 (getversion (tackon #instdatadir "Libs/poseidon.library")))
  507.                 "de Chris Hodges <hodges@in.tum.de>"
  508.                 "\n\nPor favor, lea las condiciones de la licencia antes de proceder.\n"
  509.                 "¡Continuar con el proceso de instalación implica que ha leído\ny aceptado las condiciones de dicha licencia!\n\n"
  510.             )
  511.         )
  512.  
  513.         (set #extro
  514.             (cat "\n"
  515.                 "Todos los ficheros del paquete Poseidon han sido instalados. ¡Que lo disfrute!\n\n"
  516.                 "Lo primero que debe hacer es leer el manual (ubicado en el directorio asignado \"HELP:\").  Después "
  517.                 "de esto, ponga en marcha la interfaz \"Trident\" que encontrará en el cajón \"Prefs\" de su disco del sistema."
  518.             )
  519.         )
  520.  
  521.         (set #copybonus
  522.             (cat "\n"
  523.                 "Se incluye cierto material de bonificación en el cajón \"Extra\", como es el paquete "
  524.                 "\"fat95\" de Torsten Jager, la colección \"MasonIcons\" de Martin Merz y el original "
  525.                 "paquete \"LoadModule\" de Torbjörn Andersson. Todos los archivos han sido incluidos con autorización. "
  526.                 "NOTA: Este material extra incluido se suministra \"tal cual\" y ni sus autores ni yo ofrecemos garantía de ningún tipo.\n\n"
  527.                 "¿Desea desempaquetar estos ficheros ahora?"
  528.             )
  529.         )
  530.  
  531.         (set #copybonus_help "Este paso es opcional. También puede desempaquetar/descomprimir los archivos más tarde, si lo desea.")
  532.  
  533.         (set #copybonusdir "Elija el directorio de destino (preferiblemente \"RAM:\"):")
  534.  
  535.         (set #copybonusdir_help "Ésta es la ubicación en la que serán desempaquetados los ficheros extra.")
  536.  
  537.         (set #askmorphos "¿Desea instalar también los binarios PPC nativos para MorphOS?")
  538.  
  539.         (set #askmorphos_help "Si su sistema no está ejecutando MorphOS, puede obviar esta parte.")
  540.  
  541.         (set #copymainlib "Copiando la biblioteca principal de Poseidon...\n")
  542.  
  543.         (set #copymainlib_help "\nÉsta es la biblioteca principal de la pila Poseidon.  Sin ella, nada funcionará.")
  544.  
  545.         (set #copyhwdrivers "Elija los controladores de la(s) tarjeta(s) USB que desea instalar:\n")
  546.  
  547.         (set #copyhwdrivers_help
  548.             (cat "\n"
  549.                 "Hay controladores USB dependientes de la circuitería (tarjeta). "
  550.                 " Elija el correcto o Poseidon no funcionará."
  551.             )
  552.         )
  553.  
  554.         (set #copyclasses "Elija los gestores de las clases USB que desea instalar:\n")
  555.  
  556.         (set #copyclasses_help
  557.             (cat "\n"
  558.                 "Los gestores de clases son elementos logiciales que automáticamente "
  559.                 "activan prestaciones de los dispositivos que conecte a través de "
  560.                 "la interfaz USB.  Si no sabe los que necesitará, basta con que los "
  561.                 "copie todos... en principio, no hay peligro alguno."
  562.             )
  563.         )
  564.  
  565.         (set #copydocs "Copiando el manual...\n")
  566.  
  567.         (set #copydocs_help
  568.             (cat "\n"
  569.                 "Puesto que no hay actualmente un directorio de instalación, "
  570.                 "la documentación será copiada en su directorio asignado \"HELP:\"."
  571.             )
  572.         )
  573.  
  574.         (set #copygui "Copiando la interfaz gráfica \"Trident\"...\n")
  575.  
  576.         (set #copygui_help
  577.             (cat "\n"
  578.                 "\"Trident\" es una interfaz gráfica para el usuario que le permitirá configurar sus preferencias USB. "
  579.                 "Un buen lugar para guardar este programa es su cajón \"Prefs\"."
  580.                 "Este programa requiere tener instalado el sistema gráfico MUI."
  581.             )
  582.         )
  583.  
  584.         (set #copytools "Copiando las herramientas...\n")
  585.  
  586.         (set #copytools_help
  587.             (cat "\n"
  588.                 "Hay varias herramientas ejecutables desde el CLI/Shell que serán instaladas en su directorio asignado \"C:\". "
  589.                 "Excepto en el caso de \"PsdLoadModule\", ninguna de ellas es obligatoria. "
  590.                 "Consulte el manual sobre su modo de empleo.\n\n"
  591.                 "\"PsdLoadModule\" ha sido escrita por Torbjörn Andersson y es incluida con su amable autorización."
  592.             )
  593.         )
  594.  
  595.         (set #copyromtag "Copiando el instalador \"RomTag\"...\n")
  596.  
  597.         (set #copyromtag_help
  598.             (cat "\n"
  599.                 "Poseidon puede ser instalado para que resista el reinicio del sistema, "
  600.                 "de manera que ya se encuentre disponible durante la fase inicial del "
  601.                 "arranque de su equipo.  Éste es un pequeño guión CLI/Shell que dejará "
  602.                 "residente Poseidon (o lo eliminará de la lista de programas a ejecutar durante el reinicio)."
  603.             )
  604.         )
  605.  
  606.         (set #copystackloader "Copiando la configuración inicial...\n")
  607.  
  608.         (set #copystackloader_help
  609.             (cat "\n"
  610.                 "La configuración de la pila es guardada en un fichero ejecutable que "
  611.                 "puede ser puesto en marcha al cargar la propia pila.  Este fichero de "
  612.                 "configuración/preferencias está almacenado normalmente en el directorio "
  613.                 "asignado \"ENVARC:\"."
  614.             )
  615.         )
  616.  
  617.         (set #copydosdriver "Copiando el dispositivo de ejemplo en \"DOSDriver\"...\n")
  618.  
  619.         (set #copydosdriver_help
  620.             (cat "\n"
  621.                 "Es un ejemplo de un fichero de montaje del sistema operativo "
  622.                 "para utilizar con la clase de almacenamiento masivo para medios que contengan sistemas de ficheros FAT."
  623.             )
  624.         )
  625.  
  626.         (set #copyvhi "Copiando el gestor \"Webcam\" para \"VHI Studio\"...\n")
  627.  
  628.         (set #copyvhi_help
  629.             (cat "\n"
  630.                 "Un gestor para gestionar cámaras PenCam a través del programa "
  631.                 "\"VHI Studio\" está incluido en este paquete y será instalado "
  632.                 "en \"LIBS:VHI/\"."
  633.             )
  634.         )
  635.  
  636.         (set #askstartonboot "¿Desea que Poseidon se ponga en marcha automáticamente durante el arranque del sistema?\n")
  637.  
  638.         (set #askstartonboot_help
  639.             (cat "\n"
  640.                 "De contestar afirmativamente se añadirá una línea en su fichero "
  641.                 "\"user-startup\", que pondrá en marcha el programa \"PsdStackloader\" "
  642.                 "ubicado para este propósito en el directorio asignado \"ENVARC:\". "
  643.                 "No es obligatorio: podría decidir poner en marcha la pila USB manualmente "
  644.                 "utilizando la interfaz gráfica \"Trident\"."
  645.             )
  646.         )
  647.  
  648.         (set #createconfig
  649.             (cat "\n"
  650.                  "¿Desea ejecutar inicialmente la pila USB y crear un fichero "
  651.                  "de configuración/preferencias por defecto?  De no hacerlo se "
  652.                  "copiará uno vacío."
  653.             )
  654.         )
  655.  
  656.         (set #createconfig_help
  657.             (cat "\n"
  658.                  "Poseidon sólo requiere dos cosas inicialmente: la primera es que "
  659.                  "se defina el controlador correspondiente a la circuitería USB disponible "
  660.                  "y la segunda es qué gestores de clases deben añadirse al sistema. "
  661.                  "Ahora dispone de la opción de poner en marcha la pila con los controladores "
  662.                  "disponibles en el directorio \"DEVS:USBHardware\" y las clases disponibles "
  663.                  "en \"SYS:Clases/USB\".  Sin embargo, si algo fallase la instalación "
  664.                  "probablemente sería abortada.\n\n"
  665.                  "Si no quiere crear este fácil fichero de configuración de arranque, "
  666.                  "se copiará en su lugar uno por defecto vacío."
  667.             )
  668.         )
  669.  
  670.         (set #addstartup "Añadiendo la ejecución de \"PsdStackloader\" a su fichero \"User-Startup\"...\n")
  671.  
  672.         (set #copyinput "Copiando el nuevo dispositivo \"input.device\"...\n")
  673.  
  674.         (set #addinputload
  675.              (cat "\n"
  676.                 "Añadiendo la carga del nuevo dispositivo \"input.device\" al fichero \"startup-sequence\"...\n\n"
  677.                 "Por favor, reinicie el sistema al terminar la instalación para que este nuevo dispositivo se active."
  678.              )
  679.         )
  680.  
  681.         (set #copyinput_help
  682.             (cat "\n"
  683.                 "El antiguo dispositivo \"input.device\" no es capaz de manejar más de un ratón/teclado. "
  684.                 "Se ha requerido forzar el código y varios parches para asegurar que los ratones y teclados USB "
  685.                 "sean 100% compatibles.\n\n"
  686.                 "He decidido tomar otra vía.  Ralph Schmidt ha sido tan amable que "
  687.                 "me ha suministrado el código fuente del dispositivo \"input.device\" para MorphOS. "
  688.                 "He creado una versión 68k y he añadido las prestaciones que faltaban. "
  689.                 "Sin este nuevo dispositivo, los teclados no dispondrían de la prestación \"repetición de teclas\" "
  690.                 "y algunos programas (¡especialmente el MUI!) tendrían problemas "
  691.                 "con los ratones y tabletas USB. El dispositivo de entrada de datos ha sido instalado "
  692.                 "como una entrada residente a través de \"RomTag\" de manera que esté disponible "
  693.                 "inmediatamente después del primer reinicio (que normalmente se realiza a través de SetPatch).\n\n"
  694.                 "Se añadirá una entrada que ejecuta el programa \"PsdLoadModule\", en la primera línea de su fichero \"startup-sequence\"."
  695.             )
  696.         )
  697.     )
  698. )
  699.  
  700. ;--------------------------------------------------------------------------
  701. ; Check for new installer (code supplied by RobR)
  702. ;--------------------------------------------------------------------------
  703.  
  704. (set InstallerVer 0)
  705. (set vernum1 @installer-version)
  706. (set ver1 (/ vernum1 65536))
  707. (set rev1 (- vernum1 (* ver1 65536)))
  708. (set InstallerVer (cat ver1 "." rev1))
  709. (set current_installer "43.3")
  710. (if (< InstallerVer current_installer)
  711.     (
  712.         (message #updateinstaller)
  713.     )
  714. )
  715.  
  716. ;--------------------------------------------------------------------------
  717. ; Is this a packed version?
  718. ;--------------------------------------------------------------------------
  719.  
  720. (set #cleanupinst 0)
  721.  
  722. (if (exists "InstallData.lha")
  723.     (
  724.         (if (exists "C:Lha")
  725.             (
  726.                 (run "Lha -q x InstallData.lha T:" (safe))
  727.             ) (
  728.                 (if (exists "C:LhEX")
  729.                     (
  730.                         (run "LhEX -qfw=T: x InstallData.lha" (safe))
  731.                     ) (
  732.                         (message #lhaerr)
  733.                         (exit)
  734.                     )
  735.                 )
  736.             )
  737.         )
  738.         (set #instdatadir "T:InstallData")
  739.         (set #cleanupinst 1)
  740.     )
  741. )
  742.  
  743.  
  744. ;--------------------------------------------------------------------------
  745. ; Copy the files.
  746. ;--------------------------------------------------------------------------
  747.  
  748. (run ("Run >NIL: SYS:Utilities/Multiview %s" #licence) (safe))
  749. (message #intro)
  750.  
  751. (complete 0)
  752.  
  753. (if
  754.     (and
  755.         (exists "PoseidonMOS.lha")
  756.         #cleanupinst
  757.     )
  758.     (
  759.         (if
  760.             (askbool
  761.                 (prompt #askmorphos)
  762.                 (help #askmorphos_help)
  763.                 (default 0)
  764.             )
  765.             (
  766.                 (if (exists "C:Lha")
  767.                     (
  768.                         (run "Lha -q x PoseidonMOS.lha T:" (safe))
  769.                     ) (
  770.                         (run "LhEX -qfw=T: x PoseidonMOS.lha" (safe))
  771.                     )
  772.                 )
  773.             )
  774.         )
  775.     )
  776. )
  777.  
  778. (copylib
  779.     (prompt #copymainlib)
  780.     (help #copymainlib_help)
  781.     (source (tackon #instdatadir "Libs/poseidon.library"))
  782.     (dest "LIBS:")
  783.     (confirm)
  784. )
  785.  
  786. (if
  787.     (exists (tackon #instdatadir "Libs/poseidon.library.elf"))
  788.     (
  789.         (complete 5)
  790.         (copylib
  791.             (prompt #copymainlib)
  792.             (help #copymainlib_help)
  793.             (source (tackon #instdatadir "Libs/poseidon.library.elf"))
  794.             (dest "LIBS:")
  795.             (confirm)
  796.         )
  797.     )
  798. )
  799.  
  800. (complete 10)
  801.  
  802. (copyfiles
  803.     (prompt #copyhwdrivers)
  804.     (help #copyhwdrivers_help)
  805.     (source (tackon #instdatadir "Devs/USBHardware"))
  806.     (dest "DEVS:USBHardware")
  807.     (confirm)
  808.     (all)
  809. )
  810.  
  811. (complete 15)
  812.  
  813. (if (not (exists "DEVS:USBHardware"))
  814.     (
  815.         (makedir "DEVS:USBHardware")
  816.     )
  817. )
  818.  
  819. (complete 20)
  820.  
  821. (copyfiles
  822.     (prompt #copyclasses)
  823.     (help #copyclasses_help)
  824.     (source (tackon #instdatadir "Classes/USB"))
  825.     (dest "SYS:Classes/USB")
  826.     (confirm)
  827.     (all)
  828. )
  829.  
  830. (complete 30)
  831.  
  832. (copyfiles
  833.     (prompt #copydocs)
  834.     (help #copydocs_help)
  835.     (source (tackon #instdatadir (cat "Docs/Poseidon" #suffix ".guide")))
  836.     (dest "HELP:")
  837.     (if (not (exists "HELP:Poseidon.guide.info")) (infos))
  838.     (newname "Poseidon.guide")
  839.     (noposition)
  840.     (confirm)
  841. )
  842.  
  843. (complete 40)
  844.  
  845. (copyfiles
  846.     (prompt #copygui)
  847.     (help #copygui_help)
  848.     (source (tackon #instdatadir "Trident"))
  849.     (dest "SYS:Prefs")
  850.     (if (not (exists "SYS:Prefs/Trident.info")) (infos))
  851.     (noposition)
  852.     (confirm)
  853. )
  854.  
  855. (complete 50)
  856.  
  857. (copyfiles
  858.     (prompt #copyromtag)
  859.     (help #copyromtag_help)
  860.     (source (tackon #instdatadir "PsdRomTag"))
  861.     (dest "SYS:Utilities")
  862.     (if (not (exists "SYS:Utilities/PsdRomTag.info")) (infos))
  863.     (noposition)
  864.     (confirm)
  865. )
  866.  
  867. (complete 55)
  868.  
  869. (copyfiles
  870.     (prompt #copytools)
  871.     (help #copytools_help)
  872.     (source (tackon #instdatadir "Tools"))
  873.     (dest "C:")
  874.     (confirm)
  875.     (all)
  876. )
  877.  
  878. (complete 60)
  879.  
  880. (if (exists "SYS:Storage/DOSDrivers/UMSD/UMSD")
  881.     (
  882.         (rename "SYS:Storage/DOSDrivers/UMSD" "SYS:Storage/DOSDrivers/UMSDtmp" (safe))
  883.         (delete "SYS:Storage/DOSDrivers/UMSD.info" (safe))
  884.         (run "C:Rename SYS:Storage/DOSDrivers/UMSDtmp/#? SYS:Storage/DOSDrivers" (safe))
  885.         (delete "SYS:Storage/DOSDrivers/UMSDtmp" (safe))
  886.     )
  887. )
  888.  
  889. (complete 61)
  890.  
  891. (if (not (exists "SYS:Storage/DOSDrivers/UMSD"))
  892.     (
  893.         (copyfiles
  894.             (prompt #copydosdriver)
  895.             (help #copydosdriver_help)
  896.             (source (tackon #instdatadir "Storage/DOSDrivers/UMSD"))
  897.             (dest "SYS:Storage/DOSDrivers")
  898.             (if (not (exists "SYS:Storage/DOSDrivers/UMSD.info")) (infos))
  899.             (confirm)
  900.         )
  901.     )
  902. )
  903.  
  904. (complete 62)
  905.  
  906. (if (not (exists "SYS:Storage/DOSDrivers/UMSD.info"))
  907.     (
  908.         (copyfiles
  909.             (source (tackon #instdatadir "Storage/DOSDrivers/UMSD.info"))
  910.             (dest "SYS:Storage/DOSDrivers")
  911.         )
  912.     )
  913. )
  914.  
  915. (complete 65)
  916.  
  917. (if (not (exists "SYS:Storage/DOSDrivers/UPAR"))
  918.     (
  919.         (copyfiles
  920.             (prompt #copydosdriver)
  921.             (help #copydosdriver_help)
  922.             (source (tackon #instdatadir "Storage/DOSDrivers/UPAR"))
  923.             (dest "SYS:Storage/DOSDrivers")
  924.             (if (not (exists "SYS:Storage/DOSDrivers/UPAR.info")) (infos))
  925.             (confirm)
  926.         )
  927.     )
  928. )
  929.  
  930. (complete 67)
  931.  
  932. (if (not (exists "SYS:Storage/DOSDrivers/UPAR.info"))
  933.     (
  934.         (copyfiles
  935.             (source (tackon #instdatadir "Storage/DOSDrivers/UPAR.info"))
  936.             (dest "SYS:Storage/DOSDrivers")
  937.         )
  938.     )
  939. )
  940.  
  941. (complete 70)
  942.  
  943. (copyfiles
  944.     (prompt #copyvhi)
  945.     (help #copyvhi_help)
  946.     (source (tackon #instdatadir "Libs/VHI"))
  947.     (dest "LIBS:VHI")
  948.     (confirm)
  949.     (all)
  950. )
  951.  
  952. (complete 75)
  953.  
  954. (if (not (exists "ENVARC:PsdStackloader"))
  955.     (
  956.         (if
  957.             (askbool
  958.                 (prompt #createconfig)
  959.                 (help #createconfig_help)
  960.                 (default 0)
  961.             )
  962.             (
  963.                 (run "Echo >T:AddHW \"FailAt 21\"")
  964.                 (run
  965.                     (cat
  966.                         "List >>T:AddHW FILES DEVS:USBHardware/#?.device#? LFORMAT \""
  967.                         (tackon #instdatadir "Tools/AddUSBHardware %p%n ALL\"")
  968.                     )
  969.                 )
  970.  
  971.                 (run "Execute T:AddHW")
  972.                 (delete "T:AddHW")
  973.                 (run (tackon #instdatadir "Tools/AddUSBClasses"))
  974.                 (run (tackon #instdatadir "Trident NOGUI SAVE"))
  975.             )
  976.             (
  977.                 (copyfiles
  978.                     (prompt #copystackloader)
  979.                     (help #copystackloader_help)
  980.                     (source (tackon #instdatadir "PsdStackloader"))
  981.                     (dest "ENVARC:")
  982.                 )
  983.             )
  984.         )
  985.     )
  986. )
  987.  
  988. (complete 80)
  989.  
  990. (if
  991.     (askbool
  992.         (prompt #askstartonboot)
  993.         (help #askstartonboot_help)
  994.         (default 0)
  995.     )
  996.     (
  997.         (startup "Poseidon"
  998.             (prompt #addstartup)
  999.             (help #askstartonboot_help)
  1000.             (command "ENVARC:PsdStackloader")
  1001.         )
  1002.     )
  1003. )
  1004.  
  1005. (complete 85)
  1006.  
  1007. (copyfiles
  1008.     (prompt #copyinput)
  1009.     (help #copyinput_help)
  1010.     (source (tackon #instdatadir "Devs/input.device"))
  1011.     (dest "DEVS:")
  1012. )
  1013.  
  1014. (if
  1015.     (and
  1016.         (= 5
  1017.             (run "Search S:Startup-Sequence PATTERN input.device QUIET QUICK"
  1018.                 (safe)
  1019.             )
  1020.         )
  1021.         (and
  1022.             (exists "C:PsdLoadModule")
  1023.             (exists "DEVS:input.device")
  1024.         )
  1025.     )
  1026.     (
  1027.         (run "Echo >T:NewStartup \"PsdLoadModule DEVS:input.device QUIET ;Added by Poseidon-Installer\""
  1028.             (safe)
  1029.         )
  1030.         (run "Type >>T:NewStartup S:Startup-Sequence"
  1031.             (safe)
  1032.         )
  1033.         (copyfiles
  1034.             (prompt #addinputload)
  1035.             (help #copyinput_help)
  1036.             (source "T:NewStartup")
  1037.             (dest "S:")
  1038.             (newname "S:Startup-Sequence")
  1039.             (confirm "average")
  1040.         )
  1041.         (delete "T:NewStartup" (safe))
  1042.         (run "C:PsdLoadModule DEVS:input.device QUIET")
  1043.     )
  1044. )
  1045.  
  1046. (complete 90)
  1047.  
  1048. (if
  1049.     (askbool
  1050.         (prompt #copybonus)
  1051.         (help #copybonus_help)
  1052.         (default 1)
  1053.     )
  1054.     (
  1055.         (set #bonusdir
  1056.             (tackon
  1057.                 (askdir
  1058.                     (prompt #copybonusdir)
  1059.                     (help #copybonusdir_help)
  1060.                     (default "RAM:")
  1061.                 )
  1062.                 ""
  1063.             )
  1064.         )
  1065.         (if (exists "C:Lha")
  1066.             (
  1067.                 (run ("Lha -q x Extra/#?.lha \"%s\"" #bonusdir))
  1068.             ) (
  1069.                 (run ("LhEX -qfw=%s x Extra/fat95.lha" #bonusdir))
  1070.                 (run ("LhEX -qfw=%s x Extra/LoadModule11.lha" #bonusdir))
  1071.                 (run ("LhEX -qfw=%s x Extra/GuidoIcons.lha" #bonusdir))
  1072.                 (run ("LhEX -qfw=%s x Extra/MasonIcons.lha" #bonusdir))
  1073.             )
  1074.         )
  1075.     )
  1076. )
  1077.  
  1078. (complete 100)
  1079.  
  1080. (message #extro)
  1081.  
  1082. (if #cleanupinst
  1083.     (
  1084.         (run
  1085.              (cat "Delete " #instdatadir " ALL QUIET FORCE")
  1086.         )
  1087.     )
  1088. )
  1089.  
  1090. ;--------------------------------------------------------------------------
  1091. ; Installation successful!
  1092. ;--------------------------------------------------------------------------
  1093.  
  1094. (exit)
  1095.  
  1096.